home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / games / yalife.zip / SOURCE / LIFE.CPP < prev    next >
C/C++ Source or Header  |  1993-09-08  |  13KB  |  425 lines
  1. // (c) Jean MICHEL June 1993 -- any modifications must be signaled to the
  2. // author
  3.  
  4. // Class TLifeWindow is for the main program window
  5.  
  6. #include <stdio.h>
  7. #include <stdlib.h>
  8. #include <owl.h>
  9. #include <commdlg.h>
  10. #include <dir.h>
  11. #include <io.h>
  12. #include <string.h>
  13. #include <filedial.h>
  14. #include <static.h>
  15. #include "efns.h"
  16. #include "cell.h"
  17. #include "shapewnd.h"
  18. #include "life.h"
  19. HPEN Pens[3]; HBRUSH Brushes[3];
  20. COLORREF Colors[3];
  21.  
  22. class TLife : public TApplication
  23. {
  24. public:
  25.   TLife(LPSTR AName, HINSTANCE hInstance, HINSTANCE hPrevInstance,
  26.     LPSTR lpCmdLine, int nCmdShow)
  27.     : TApplication(AName, hInstance, hPrevInstance, lpCmdLine, nCmdShow) {};
  28.   virtual void InitMainWindow();
  29. };
  30.  
  31. _CLASSDEF(TLifeWindow)
  32. class TLifeWindow : public TWindow
  33. {
  34. public:
  35.   cellpop v;
  36.   cell_type box_start,box_end;
  37.   BOOL drawing;
  38.   HDC DrawDC;
  39.   int magnification;
  40.   RECT ScrollRange;
  41.   long gencounter;
  42.   struct {long x;long y;}origin;// Logical coordinates of top left
  43.   void setorigin();
  44.   void info();
  45.   void DrawBox();
  46.   void Run(long count);
  47.   cell_type coordtocell(TMessage::tagLP);
  48.   int update(cellpop& w);
  49.   void pixel(HDC DC,cell_type c,int color);
  50.   char *GetFileName();
  51.   TLifeWindow(PTWindowsObject AParent, LPSTR ATitle);
  52.   ~TLifeWindow();
  53.   void adjustscroll(int newmag);
  54.   virtual void SetupWindow();
  55.   virtual void Paint(HDC DC, PAINTSTRUCT& PS);
  56.   virtual void WMLButtonDown(RTMessage Msg)
  57.     = [WM_FIRST + WM_LBUTTONDOWN];
  58.   virtual void WMRButtonDown(RTMessage Msg)
  59.     = [WM_FIRST + WM_RBUTTONDOWN];
  60.   virtual void WMRButtonUp(RTMessage Msg)
  61.     = [WM_FIRST + WM_RBUTTONUP];
  62.   virtual void WMMouseMove(RTMessage Msg)
  63.     = [WM_FIRST + WM_MOUSEMOVE];
  64.   virtual void CMShape(RTMessage Msg)
  65.     = [CM_FIRST + CM_SHAPE];
  66.   virtual void CMUFileSave(RTMessage Msg)
  67.     = [CM_FIRST + CM_U_FILESAVEAS];
  68.   virtual void CMUFileSaveArea(RTMessage Msg)
  69.     = [CM_FIRST + CM_U_FILESAVEAREAAS];
  70.   virtual void CMErase(RTMessage Msg)
  71.     = [CM_FIRST + CM_ERASE];
  72.   virtual void CMColorSet(RTMessage Msg)
  73.     = [CM_FIRST + CM_COLOR_SET];
  74.   virtual void CMColorReset(RTMessage Msg)
  75.     = [CM_FIRST + CM_COLOR_RESET];
  76.   virtual void CMColorUnset(RTMessage Msg)
  77.     = [CM_FIRST + CM_COLOR_UNSET];
  78.   virtual void CMClearGen(RTMessage Msg)
  79.     = [CM_FIRST + CM_CLEAR_GEN];
  80.   void CMUColor(int index);
  81.   virtual void CMFileNew(RTMessage Msg)
  82.     = [CM_FIRST + CM_FILENEW];
  83.   virtual void CMHelp(RTMessage Msg)
  84.     = [CM_FIRST + CM_HELP];
  85.   virtual void CMHelphelp(RTMessage Msg)
  86.     = [CM_FIRST + CM_HELPHELP];
  87.   virtual void CMAbout(RTMessage Msg)
  88.     = [CM_FIRST + CM_ABOUT];
  89.   virtual void CMZoomOut(RTMessage Msg)
  90.     = [CM_FIRST + CM_ZOOMOUT];
  91.   virtual void CMZoomIn(RTMessage Msg)
  92.     = [CM_FIRST + CM_ZOOMIN];
  93.   virtual void CMStep(RTMessage Msg)
  94.     = [CM_FIRST + CM_STEP];
  95.   virtual void CMRun(RTMessage Msg)
  96.     = [CM_FIRST + CM_RUN];
  97. };
  98.  
  99. int mags[]={1,2,3,5,7,10,15,25};int magindex=4;
  100.  
  101. TLifeWindow::TLifeWindow(PTWindowsObject AParent, LPSTR ATitle)
  102.   : TWindow(AParent, ATitle)
  103. { AssignMenu("COMMANDS");
  104.   Attr.Style|= WS_VSCROLL|WS_HSCROLL;
  105.   magnification=mags[magindex];origin.x=origin.y=0;
  106.   drawing=FALSE;
  107.   Scroller=new TScroller(this,1,1,1,1); // meaningless values -- setup by SetupWindow
  108.   selected_shape=cellpop("o\n");
  109.   v=cellpop();gencounter=0;
  110.   Colors[UNSET]=RGB(120,255,120);
  111.   Colors[SET]=RGB(255,0,0);
  112.   Colors[RESET]=RGB(200,0,0);
  113.   for(int i=0;i<3;i++)
  114.   { Brushes[i]=CreateSolidBrush(Colors[i]);
  115.     Pens[i]=CreatePen(PS_SOLID,1,Colors[i]);
  116.   }
  117. }
  118.  
  119. void TLifeWindow::SetupWindow()
  120. { TWindow::SetupWindow();
  121.   RECT r;GetClientRect(HWindow,&r);
  122.   ScrollRange.left=-(r.right-r.left)/(2*magnification);
  123.   ScrollRange.top=-(r.bottom-r.top)/(2*magnification);
  124.   ScrollRange.right=ScrollRange.left+1;
  125.   ScrollRange.bottom=ScrollRange.top+1;
  126.   Scroller->AutoOrg=FALSE;
  127.   adjustscroll(magnification);
  128.   readshapelib("life.lib");
  129. }
  130.  
  131. TLifeWindow::~TLifeWindow()
  132. { for(int i=0;i<3;i++)
  133.   { DeleteObject(Brushes[i]);
  134.     DeleteObject(Pens[i]);
  135.   }
  136. }
  137.  
  138. void TLifeWindow::Paint(HDC DC, PAINTSTRUCT&)
  139. { setorigin();
  140.   for(int i=0;i<v.pop;i++)pixel(DC,v.v[i],RESET);
  141.   info();
  142. }
  143.  
  144. void TLifeWindow::info()
  145. { RECT r;GetClientRect(HWindow,&r);
  146.   char text[130];
  147.   sprintf(text,
  148. "Life  Pop:%5d Gen:%5ld Mag:%d X:[%ld,%ld] Y:[%ld,%ld]",
  149.     v.pop,gencounter,magnification,
  150.     Scroller->XPos+ScrollRange.left,Scroller->XPos+ScrollRange.left+(r.right-r.left)/magnification,
  151.     Scroller->YPos+ScrollRange.top,Scroller->YPos+ScrollRange.top+(r.bottom-r.top)/magnification);
  152.   SetCaption(text);
  153. }
  154.  
  155. int TLifeWindow::update(cellpop& w)
  156. { int iw=0,iv=0,nbchg=0;
  157.   DrawDC = GetDC(HWindow);
  158.   setorigin();
  159.   while(iw!=w.pop || iv!=v.pop)
  160.   { if (w.v[iw]<v.v[iv]){ pixel(DrawDC,w.v[iw],SET);nbchg++;iw++;}
  161.     else if(w.v[iw]==v.v[iv]){ pixel(DrawDC,w.v[iw],RESET);iw++;iv++;}
  162.     else { pixel(DrawDC,v.v[iv],UNSET);nbchg++;iv++;}
  163.   }
  164.   ReleaseDC(HWindow, DrawDC);
  165.   v=w;info();
  166.   return nbchg;
  167. }
  168.  
  169. void TLifeWindow::setorigin()
  170. { origin.x=Scroller->XPos+ScrollRange.left;
  171.   origin.y=Scroller->YPos+ScrollRange.top;
  172. }
  173.  
  174. void TLifeWindow::pixel(HDC DC,cell_type c,int color)
  175. { int border=magnification>3,x,y;
  176.   SelectObject(DC,Pens[color]);
  177.   SelectObject(DC,Brushes[color]);
  178.   x=magnification*(c.cellx()-origin.x);
  179.   y=magnification*(c.celly()-origin.y);
  180.   if(magnification>1)
  181.   Rectangle(DC,x,y,x+magnification-border,y+magnification-border);
  182.   else SetPixel(DC,x,y,Colors[color]);
  183. } 
  184.  
  185. cell_type TLifeWindow::coordtocell(TMessage::tagLP LP)
  186. { return cell_type(LP.Lo/magnification+origin.x,LP.Hi/magnification+origin.y);}
  187.  
  188. void TLifeWindow::WMLButtonDown(RTMessage Msg)
  189. { cellpop w=v;
  190.   w.add(w,selected_shape,coordtocell(Msg.LP),LAY_XOR);
  191.   if(selected_shape.pop!=1)selected_shape="o";
  192.   update(w);
  193. }
  194.  
  195. void TLifeWindow::DrawBox()
  196. { int x1=magnification*(box_start.cellx()-origin.x);
  197.   int y1=magnification*(box_start.celly()-origin.y);
  198.   int x2=magnification*(box_end.cellx()-origin.x);
  199.   int y2=magnification*(box_end.celly()-origin.y);
  200.   DrawDC=GetDC(HWindow);
  201.   SetROP2(DrawDC,R2_NOT);
  202.   MoveTo(DrawDC,x1,y1);
  203.   LineTo(DrawDC,x1,y2);
  204.   LineTo(DrawDC,x2,y2);
  205.   LineTo(DrawDC,x2,y1);
  206.   LineTo(DrawDC,x1,y1);
  207.   ReleaseDC(HWindow,DrawDC);
  208. }
  209.  
  210. void TLifeWindow::WMRButtonDown(RTMessage Msg)
  211. { drawing=TRUE;SetCapture(HWindow);
  212.   DrawBox();box_start=box_end=coordtocell(Msg.LP);DrawBox();
  213. }
  214.  
  215. void TLifeWindow::WMMouseMove(RTMessage Msg)
  216. { if(drawing)
  217.   { DrawBox(); box_end=coordtocell(Msg.LP);DrawBox();}
  218. #if 0
  219.   setorigin();
  220.   char buf[20]; sprintf(buf,"%04ld,%04ld",origin.x,origin.y);
  221.   DrawDC = GetDC(HWindow);
  222.   TextOut(DrawDC,10,10,buf,strlen(buf));
  223.   ReleaseDC(HWindow,DrawDC);
  224. #endif
  225. }
  226.  
  227. void TLifeWindow::WMRButtonUp(RTMessage Msg)
  228. { drawing=FALSE;
  229.   ReleaseCapture();
  230. }
  231.  
  232. void TLifeWindow::Run(long count)
  233. { MSG msg;//PeekMessage(&msg,NULL,0,0,PM_REMOVE);
  234.   cellpop w,res;res.pop=-1;
  235.   do
  236.   {  w.nextgen(v);
  237.      if(w.error())return;
  238.      if(w==v){efns(WARNING_,"stable");return;}
  239.      if(w==res){efns(WARNING_,"period 2");return;}
  240.      gencounter++;res=v;
  241.      update(w);
  242.      if(w.pop==0){efns(WARNING_,"dead");return;}
  243.      if( PeekMessage(&msg,NULL,0x00A1,0x0209,PM_REMOVE))
  244.      {  TranslateMessage(&msg);
  245.         DispatchMessage(&msg);
  246.     if((msg.message<=0xA9 || msg.message>=0x106)
  247.            && (msg.message<=0x108 || msg.message>=0x201))
  248.         break;
  249.      }
  250.   }
  251.   while(--count>0);
  252. }
  253.  
  254. void TLifeWindow::CMStep(RTMessage m){Run(1);}
  255.  
  256. void TLifeWindow::CMRun(RTMessage m){Run(10000);}
  257.  
  258. void TLifeWindow::adjustscroll(int newmag)
  259. { RECT r;GetClientRect(HWindow,&r);
  260.   Scroller->XPos+=(newmag-magnification)*(r.right-r.left)/(2*newmag*magnification);
  261.   Scroller->YPos+=(newmag-magnification)*(r.bottom-r.top)/(2*newmag*magnification);
  262.   magnification=newmag;
  263.   Scroller->XLine=Scroller->YLine=25/magnification;
  264.   Scroller->SetUnits(magnification,magnification);
  265.   RECT NewRange;
  266.   if(v.pop>0)
  267.   { NewRange.left=v.firstx().cellx();
  268.     NewRange.right=v.lastx().cellx();
  269.     NewRange.top=v.firsty().celly();
  270.     NewRange.bottom=v.lasty().celly();
  271.   }
  272.   else
  273.   { NewRange.left=0;
  274.     NewRange.right=0;
  275.     NewRange.top=0;
  276.     NewRange.bottom=0;
  277.   }
  278.   NewRange.left-=(r.right-r.left)/magnification;
  279.   NewRange.top-=(r.bottom-r.top)/magnification;
  280.   Scroller->XPos+=ScrollRange.left-NewRange.left;
  281.   Scroller->YPos+=ScrollRange.top-NewRange.top;
  282.   ScrollRange=NewRange;
  283.   Scroller->SetRange(ScrollRange.right-ScrollRange.left,ScrollRange.bottom-ScrollRange.top);
  284.   InvalidateRect(HWindow, NULL, TRUE);
  285. }
  286.  
  287. void TLifeWindow::CMZoomIn(RTMessage)
  288. { if(magnification==25)return;
  289.   adjustscroll(mags[++magindex]);
  290. }
  291.  
  292. void TLifeWindow::CMZoomOut(RTMessage)
  293. { if(magnification==1)return;
  294.   adjustscroll(mags[--magindex]);
  295. }
  296.  
  297. void TLifeWindow::CMFileNew(RTMessage)
  298. { v.clear_pop();gencounter=0;
  299.   InvalidateRect(HWindow, NULL, TRUE);}
  300.  
  301. void TLifeWindow::CMErase(RTMessage)
  302. { cellpop w=v;
  303.   w.erase_rect(box_start,box_end);update(w);
  304.   DrawBox();box_end=box_start;
  305. }
  306.  
  307. char *TLifeWindow::GetFileName()
  308. { OPENFILENAME ofnTemp;
  309.   static char FileName[MAXPATH];
  310.   char szTemp[] = "All Files (*.*)\0*.*\0Life Files (*.lfe)\0*.lfe\0";
  311. /*
  312. Some Windows structures require the size of themselves in an effort to
  313. provide backward compatibility with future versions of Windows.  If the
  314. lStructSize member is not set the call to GetOpenFileName() will fail.
  315. */
  316.   ofnTemp.lStructSize = sizeof( OPENFILENAME );
  317.   ofnTemp.hwndOwner = HWindow;        // An invalid hWnd causes non-modality
  318.   ofnTemp.hInstance = 0;
  319.   ofnTemp.lpstrFilter = (LPSTR)szTemp;    // See previous note concerning string
  320.   ofnTemp.lpstrCustomFilter = NULL;
  321.   ofnTemp.nMaxCustFilter = 0;
  322.   ofnTemp.nFilterIndex = 2;
  323.   FileName[0]='\0';
  324.   ofnTemp.lpstrFile = FileName;    // Stores the result in this variable
  325.   ofnTemp.nMaxFile = sizeof( FileName );
  326.   ofnTemp.lpstrFileTitle = NULL;
  327.   ofnTemp.nMaxFileTitle = 0;
  328.   ofnTemp.lpstrInitialDir = NULL;
  329.   ofnTemp.lpstrTitle = "Save Area";                // Title for dialog
  330.   ofnTemp.Flags = OFN_HIDEREADONLY | OFN_NOREADONLYRETURN|OFN_OVERWRITEPROMPT;
  331.   ofnTemp.nFileOffset = 0;
  332.   ofnTemp.nFileExtension = 0;
  333.   ofnTemp.lpstrDefExt = "lfe";
  334.   ofnTemp.lCustData = NULL;
  335.   ofnTemp.lpfnHook = NULL;
  336.   ofnTemp.lpTemplateName = NULL;
  337. /*
  338. If the call to GetOpenFileName() fails you can call CommDlgExtendedError()
  339. to retrieve the type of error that occured.
  340. */
  341.   if(GetSaveFileName( &ofnTemp ) != TRUE)
  342.   { DWORD Errval=CommDlgExtendedError();
  343.     if(Errval!=0)   // 0 value means user selected Cancel
  344.       efns(WARNING_,"GetSaveFileName returned Error #%ld",Errval);
  345.   }
  346.   return FileName;
  347. }
  348.  
  349. void TLifeWindow::CMUFileSave( RTMessage )
  350. {v.save(GetFileName());}
  351.  
  352. void TLifeWindow::CMUFileSaveArea( RTMessage )
  353. { DrawBox();
  354.   v.save_rect(GetFileName(),box_start,box_end);
  355.   box_end=box_start;
  356. }
  357.  
  358. void TLifeWindow::CMColorUnset(RTMessage Msg){CMUColor(UNSET);}
  359. void TLifeWindow::CMColorReset(RTMessage Msg){CMUColor(RESET);}
  360. void TLifeWindow::CMColorSet(RTMessage Msg){CMUColor(SET);}
  361. void TLifeWindow::CMClearGen(RTMessage Msg){gencounter=0;info();}
  362.  
  363.  
  364. void TLifeWindow::CMUColor(int index)
  365. { CHOOSECOLOR ccTemp;
  366.   COLORREF crTemp[16];    // Important, sometimes unused, array
  367.  
  368.   ccTemp.lStructSize = sizeof( CHOOSECOLOR );
  369.   ccTemp.hwndOwner = HWindow;
  370.   ccTemp.hInstance = 0;
  371.   ccTemp.rgbResult = Colors[index]; // CC_RGBINIT flag makes this the default color
  372. /*
  373. lpCustColors must be set to a valid array of 16 COLORREF's, even if it
  374. is not used.  If it isn't you will probably fail with a GP fault in
  375. COMMDLG.DLL.
  376. */
  377.   ccTemp.lpCustColors=crTemp;
  378.   ccTemp.Flags= CC_RGBINIT;
  379.   ccTemp.lCustData=0L;
  380.   ccTemp.lpfnHook=NULL;
  381.   ccTemp.lpTemplateName=NULL;
  382.   if(ChooseColor(&ccTemp)==TRUE)
  383.   { Colors[index]=ccTemp.rgbResult;
  384.     DeleteObject(Brushes[index]);
  385.     DeleteObject(Pens[index]);
  386.     Brushes[index]=CreateSolidBrush(Colors[index]);
  387.     Pens[index]=CreatePen(PS_SOLID,1,Colors[index]);
  388.     InvalidateRect( HWindow, NULL, TRUE );
  389.   }
  390. }
  391.  
  392. void TLifeWindow::CMHelp(RTMessage)
  393. { WinHelp(HWindow,"LIFE.HLP",HELP_CONTENTS,0l);}
  394.  
  395. void TLifeWindow::CMHelphelp(RTMessage)
  396. { WinHelp(HWindow,NULL,HELP_HELPONHELP,0l);}
  397.  
  398. void TLifeWindow::CMAbout(RTMessage Msg)
  399. { MessageBox(HWindow,"Windows Life\n\n"
  400.                      "Version 0.1 June 1993\n\n"
  401.              "(C) Jean MICHEL\n\n"
  402.              " 22, rue de Wattignies 75012 Paris France\n"
  403.              " E-Mail: michel@dmi.ens.fr","About Life",MB_OK);}
  404.  
  405. void TLifeWindow::CMShape(RTMessage)
  406. { PTWindow ShapeWindow;
  407.   ShapeWindow = new TShapeWindow(this);
  408.   GetApplication()->MakeWindow(ShapeWindow);
  409. }
  410.  
  411. void TLife::InitMainWindow()
  412. { MainWindow = new TLifeWindow(NULL, Name);
  413. }
  414.  
  415. #include "winerror.h"
  416. void (cdecl *efns)(int errcode,char *fmt,...)=error;
  417.  
  418. int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
  419.   LPSTR lpCmdLine, int nCmdShow)
  420. { TLife Life("Windows Life (C) Jean MICHEL Version 0.0", hInstance, hPrevInstance,
  421.            lpCmdLine, nCmdShow);
  422.   Life.Run();
  423.   return Life.Status;
  424. }
  425.